﻿Imports System.Data.OleDb

Public Interface RowMapper(Of T As Base)
    Function map(ByRef reader As OleDbDataReader) As T
End Interface

Public Class MaxIdMapper
    Implements RowMapper(Of DummyBase)
    Public Function map(ByRef reader As System.Data.OleDb.OleDbDataReader) As DummyBase Implements RowMapper(Of DummyBase).map
        Dim result As New DummyBase()
        result.id = reader("max_id")
        Return result
    End Function
End Class

